home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / Games / reve / reve.G < prev    next >
Encoding:
Text File  |  1995-05-03  |  29.3 KB  |  1,050 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :menu
  5.     :name                   Gmenu
  6.     :help                   ""
  7.     :columns                1
  8.     :menu-type              :command
  9.     :menu-handler           nil
  10.     :menu-title             "Game"
  11.     :menu-item-labels       ("New" "Load..." "Save..." "Print" )
  12.     :menu-item-label-types  (:string :string :string :string )
  13.     :menu-item-states       (:active :active :active :active )
  14.     :menu-item-defaults     (nil nil nil nil )
  15.     :initial-selections     (nil nil nil nil )
  16.     :menu-item-handlers     (menu_do menu_do menu_do menu_do )
  17.     :menu-item-menus        (nil nil nil nil )
  18.     :menu-item-colors       ("" "" "" "" )
  19.     :pinnable               t
  20.     :user-data              ()
  21.     :actions                (
  22.         (
  23.         :from                   (Gmenu "New")
  24.         :when                   (Notify )
  25.         :to                     (Gmenu "New")
  26.         :function_type          CallFunction
  27.         :arg_type               ()
  28.         :action                 (menu_do)
  29.         )
  30.         (
  31.         :from                   (Gmenu "Load...")
  32.         :when                   (Notify )
  33.         :to                     (Gmenu "Load...")
  34.         :function_type          CallFunction
  35.         :arg_type               ()
  36.         :action                 (menu_do)
  37.         )
  38.         (
  39.         :from                   (Gmenu "Save...")
  40.         :when                   (Notify )
  41.         :to                     (Gmenu "Save...")
  42.         :function_type          CallFunction
  43.         :arg_type               ()
  44.         :action                 (menu_do)
  45.         )
  46.         (
  47.         :from                   (Gmenu "Print")
  48.         :when                   (Notify )
  49.         :to                     (Gmenu "Print")
  50.         :function_type          CallFunction
  51.         :arg_type               ()
  52.         :action                 (menu_do)
  53.         )
  54.     )
  55. )
  56. (
  57.     :type                   :menu
  58.     :name                   Mmenu
  59.     :help                   ""
  60.     :columns                1
  61.     :menu-type              :command
  62.     :menu-handler           nil
  63.     :menu-title             "Move"
  64.     :menu-item-labels       ("Suggest" "Show All" "Redo" "Undo" )
  65.     :menu-item-label-types  (:string :string :string :string )
  66.     :menu-item-states       (:active :active :active :active )
  67.     :menu-item-defaults     (nil nil nil nil )
  68.     :initial-selections     (nil nil nil nil )
  69.     :menu-item-handlers     (menu_do menu_do menu_do menu_do )
  70.     :menu-item-menus        (nil nil nil nil )
  71.     :menu-item-colors       ("" "" "" "" )
  72.     :pinnable               t
  73.     :user-data              ()
  74.     :actions                (
  75.         (
  76.         :from                   (Mmenu "Suggest")
  77.         :when                   (Notify )
  78.         :to                     (Mmenu "Suggest")
  79.         :function_type          CallFunction
  80.         :arg_type               ()
  81.         :action                 (menu_do)
  82.         )
  83.         (
  84.         :from                   (Mmenu "Show All")
  85.         :when                   (Notify )
  86.         :to                     (Mmenu "Show All")
  87.         :function_type          CallFunction
  88.         :arg_type               ()
  89.         :action                 (menu_do)
  90.         )
  91.         (
  92.         :from                   (Mmenu "Redo")
  93.         :when                   (Notify )
  94.         :to                     (Mmenu "Redo")
  95.         :function_type          CallFunction
  96.         :arg_type               ()
  97.         :action                 (menu_do)
  98.         )
  99.         (
  100.         :from                   (Mmenu "Undo")
  101.         :when                   (Notify )
  102.         :to                     (Mmenu "Undo")
  103.         :function_type          CallFunction
  104.         :arg_type               ()
  105.         :action                 (menu_do)
  106.         )
  107.     )
  108. )
  109. (
  110.     :type                   :base-window
  111.     :name                   Wmain
  112.     :owner                  nil
  113.     :width                  461
  114.     :height                 209
  115.     :background-color       ""
  116.     :foreground-color       ""
  117.     :label                  "Reve."
  118.     :label-type             :string
  119.     :initial-state          :open
  120.     :show-footer            nil
  121.     :resizable              nil
  122.     :icon-file              "images/reve.xbm"
  123.     :icon-mask-file         ""
  124.     :event-handler          nil
  125.     :events                 ()
  126.     :user-data              ()
  127.     :actions                ()
  128. )
  129. (
  130.     :type                   :control-area
  131.     :name                   controls1
  132.     :owner                  Wmain
  133.     :help                   ""
  134.     :x                      0
  135.     :y                      0
  136.     :width                  461
  137.     :height                 209
  138.     :background-color       ""
  139.     :foreground-color       ""
  140.     :initial-state          :visible
  141.     :show-border            nil
  142.     :menu                   nil
  143.     :event-handler          nil
  144.     :events                 ()
  145.     :user-data              ()
  146.     :actions                ()
  147. )
  148. (
  149.     :type                   :button
  150.     :name                   Gbutton
  151.     :owner                  controls1
  152.     :help                   ""
  153.     :x                      8
  154.     :y                      8
  155.     :width                  67
  156.     :height                 19
  157.     :constant-width         nil
  158.     :button-type            :normal
  159.     :foreground-color       ""
  160.     :label                  "Game"
  161.     :label-type             :string
  162.     :initial-state          :active
  163.     :menu                   Gmenu
  164.     :notify-handler         nil
  165.     :event-handler          nil
  166.     :events                 ()
  167.     :user-data              ()
  168.     :actions                ()
  169. )
  170. (
  171.     :type                   :button
  172.     :name                   Mbutton
  173.     :owner                  controls1
  174.     :help                   ""
  175.     :x                      88
  176.     :y                      8
  177.     :width                  64
  178.     :height                 19
  179.     :constant-width         nil
  180.     :button-type            :normal
  181.     :foreground-color       ""
  182.     :label                  "Move"
  183.     :label-type             :string
  184.     :initial-state          :active
  185.     :menu                   Mmenu
  186.     :notify-handler         nil
  187.     :event-handler          nil
  188.     :events                 ()
  189.     :user-data              ()
  190.     :actions                ()
  191. )
  192. (
  193.     :type                   :button
  194.     :name                   Bhelp
  195.     :owner                  controls1
  196.     :help                   ""
  197.     :x                      168
  198.     :y                      8
  199.     :width                  55
  200.     :height                 19
  201.     :constant-width         nil
  202.     :button-type            :normal
  203.     :foreground-color       ""
  204.     :label                  "Help..."
  205.     :label-type             :string
  206.     :initial-state          :active
  207.     :menu                   nil
  208.     :notify-handler         button_do
  209.     :event-handler          nil
  210.     :events                 ()
  211.     :user-data              ()
  212.     :actions                (
  213.         (
  214.         :from                   (Wmain Bhelp)
  215.         :when                   (Notify )
  216.         :to                     (Wmain Bhelp)
  217.         :function_type          CallFunction
  218.         :arg_type               ()
  219.         :action                 (button_do)
  220.         )
  221.     )
  222. )
  223. (
  224.     :type                   :button
  225.     :name                   Bprops
  226.     :owner                  controls1
  227.     :help                   ""
  228.     :x                      240
  229.     :y                      8
  230.     :width                  61
  231.     :height                 19
  232.     :constant-width         nil
  233.     :button-type            :normal
  234.     :foreground-color       ""
  235.     :label                  "Props..."
  236.     :label-type             :string
  237.     :initial-state          :active
  238.     :menu                   nil
  239.     :notify-handler         button_do
  240.     :event-handler          nil
  241.     :events                 ()
  242.     :user-data              ()
  243.     :actions                (
  244.         (
  245.         :from                   (Wmain Bprops)
  246.         :when                   (Notify )
  247.         :to                     (Wmain Bprops)
  248.         :function_type          CallFunction
  249.         :arg_type               ()
  250.         :action                 (button_do)
  251.         )
  252.     )
  253. )
  254. (
  255.     :type                   :text-field
  256.     :name                   Tblack
  257.     :owner                  controls1
  258.     :help                   ""
  259.     :x                      8
  260.     :y                      40
  261.     :width                  144
  262.     :height                 15
  263.     :value-x                56
  264.     :value-y                40
  265.     :value-length           12
  266.     :stored-length          20
  267.     :rows                   3
  268.     :foreground-color       ""
  269.     :text-type              :alphanumeric
  270.     :label                  "Black:"
  271.     :label-type             :string
  272.     :layout-type            :horizontal
  273.     :value-underlined       nil
  274.     :initial-value          ""
  275.     :initial-state          :active
  276.     :read-only              t
  277.     :notify-handler         nil
  278.     :event-handler          nil
  279.     :events                 ()
  280.     :user-data              ()
  281.     :actions                ()
  282. )
  283. (
  284.     :type                   :text-field
  285.     :name                   Twhite
  286.     :owner                  controls1
  287.     :help                   ""
  288.     :x                      216
  289.     :y                      40
  290.     :width                  146
  291.     :height                 15
  292.     :value-x                266
  293.     :value-y                40
  294.     :value-length           12
  295.     :stored-length          20
  296.     :rows                   3
  297.     :foreground-color       ""
  298.     :text-type              :alphanumeric
  299.     :label                  "White:"
  300.     :label-type             :string
  301.     :layout-type            :horizontal
  302.     :value-underlined       nil
  303.     :initial-value          ""
  304.     :initial-state          :active
  305.     :read-only              t
  306.     :notify-handler         nil
  307.     :event-handler          nil
  308.     :events                 ()
  309.     :user-data              ()
  310.     :actions                ()
  311. )
  312. (
  313.     :type                   :text-field
  314.     :name                   Tblack_time
  315.     :owner                  controls1
  316.     :help                   ""
  317.     :x                      8
  318.     :y                      72
  319.     :width                  125
  320.     :height                 15
  321.     :value-x                85
  322.     :value-y                72
  323.     :value-length           6
  324.     :stored-length          6
  325.     :rows                   3
  326.     :foreground-color       ""
  327.     :text-type              :alphanumeric
  328.     :label                  "Time Left:"
  329.     :label-type             :string
  330.     :layout-type            :horizontal
  331.     :value-underlined       t
  332.     :initial-value          ""
  333.     :initial-state          :active
  334.     :read-only              t
  335.     :notify-handler         nil
  336.     :event-handler          nil
  337.     :events                 ()
  338.     :user-data              ()
  339.     :actions                ()
  340. )
  341. (
  342.     :type                   :text-field
  343.     :name                   Twhite_time
  344.     :owner                  controls1
  345.     :help                   ""
  346.     :x                      216
  347.     :y                      72
  348.     :width                  125
  349.     :height                 15
  350.     :value-x                293
  351.     :value-y                72
  352.     :value-length           6
  353.     :stored-length          6
  354.     :rows                   3
  355.     :foreground-color       ""
  356.     :text-type              :alphanumeric
  357.     :label                  "Time Left:"
  358.     :label-type             :string
  359.     :layout-type            :horizontal
  360.     :value-underlined       t
  361.     :initial-value          ""
  362.     :initial-state          :active
  363.     :read-only              t
  364.     :notify-handler         nil
  365.     :event-handler          nil
  366.     :events                 ()
  367.     :user-data              ()
  368.     :actions                ()
  369. )
  370. (
  371.     :type                   :message
  372.     :name                   Mpanel
  373.     :owner                  controls1
  374.     :help                   ""
  375.     :x                      8
  376.     :y                      104
  377.     :width                  0
  378.     :height                 0
  379.     :foreground-color       ""
  380.     :label                  ""
  381.     :label-type             :string
  382.     :label-bold             nil
  383.     :initial-state          :active
  384.     :event-handler          nil
  385.     :events                 ()
  386.     :user-data              ()
  387.     :actions                ()
  388. )
  389. (
  390.     :type                   :message
  391.     :name                   Meval
  392.     :owner                  controls1
  393.     :help                   ""
  394.     :x                      8
  395.     :y                      136
  396.     :width                  0
  397.     :height                 0
  398.     :foreground-color       ""
  399.     :label                  ""
  400.     :label-type             :string
  401.     :label-bold             nil
  402.     :initial-state          :active
  403.     :event-handler          nil
  404.     :events                 ()
  405.     :user-data              ()
  406.     :actions                ()
  407. )
  408. (
  409.     :type                   :message
  410.     :name                   Mscore
  411.     :owner                  controls1
  412.     :help                   ""
  413.     :x                      8
  414.     :y                      168
  415.     :width                  0
  416.     :height                 0
  417.     :foreground-color       ""
  418.     :label                  ""
  419.     :label-type             :string
  420.     :label-bold             nil
  421.     :initial-state          :active
  422.     :event-handler          nil
  423.     :events                 ()
  424.     :user-data              ()
  425.     :actions                ()
  426. )
  427. (
  428.     :type                   :message
  429.     :name                   Mturn
  430.     :owner                  controls1
  431.     :help                   ""
  432.     :x                      208
  433.     :y                      168
  434.     :width                  0
  435.     :height                 0
  436.     :foreground-color       ""
  437.     :label                  ""
  438.     :label-type             :string
  439.     :label-bold             nil
  440.     :initial-state          :active
  441.     :event-handler          nil
  442.     :events                 ()
  443.     :user-data              ()
  444.     :actions                ()
  445. )
  446. (
  447.     :type                   :popup-window
  448.     :name                   Wdepth
  449.     :owner                  Wmain
  450.     :width                  171
  451.     :height                 69
  452.     :background-color       ""
  453.     :foreground-color       ""
  454.     :label                  "Set Search Depth"
  455.     :label-type             :string
  456.     :initial-state          :invisible
  457.     :show-footer            nil
  458.     :resizable              nil
  459.     :pinned                 t
  460.     :done-handler           nil
  461.     :event-handler          nil
  462.     :events                 ()
  463.     :user-data              ()
  464.     :actions                ()
  465. )
  466. (
  467.     :type                   :control-area
  468.     :name                   controls3
  469.     :owner                  Wdepth
  470.     :help                   ""
  471.     :x                      0
  472.     :y                      0
  473.     :width                  171
  474.     :height                 69
  475.     :background-color       ""
  476.     :foreground-color       ""
  477.     :initial-state          :visible
  478.     :show-border            nil
  479.     :menu                   nil
  480.     :event-handler          nil
  481.     :events                 ()
  482.     :user-data              ()
  483.     :actions                ()
  484. )
  485. (
  486.     :type                   :text-field
  487.     :name                   Tdepth
  488.     :owner                  controls3
  489.     :help                   ""
  490.     :x                      32
  491.     :y                      8
  492.     :width                  123
  493.     :height                 15
  494.     :value-x                84
  495.     :value-y                8
  496.     :value-length           2
  497.     :stored-length          3
  498.     :rows                   3
  499.     :foreground-color       ""
  500.     :text-type              :numeric
  501.     :label                  "Depth:"
  502.     :label-type             :string
  503.     :layout-type            :horizontal
  504.     :value-underlined       t
  505.     :max-value              60
  506.     :min-value              1
  507.     :initial-value          1
  508.     :initial-state          :active
  509.     :read-only              nil
  510.     :notify-handler         nil
  511.     :event-handler          nil
  512.     :events                 ()
  513.     :user-data              ()
  514.     :actions                ()
  515. )
  516. (
  517.     :type                   :button
  518.     :name                   Bdapply
  519.     :owner                  controls3
  520.     :help                   ""
  521.     :x                      64
  522.     :y                      40
  523.     :width                  53
  524.     :height                 19
  525.     :constant-width         nil
  526.     :button-type            :normal
  527.     :foreground-color       ""
  528.     :label                  "Apply"
  529.     :label-type             :string
  530.     :initial-state          :active
  531.     :menu                   nil
  532.     :notify-handler         set_profmax
  533.     :event-handler          nil
  534.     :events                 ()
  535.     :user-data              ()
  536.     :actions                (
  537.         (
  538.         :from                   (Wdepth Bdapply)
  539.         :when                   (Notify )
  540.         :to                     (Wdepth Bdapply)
  541.         :function_type          CallFunction
  542.         :arg_type               ()
  543.         :action                 (set_profmax)
  544.         )
  545.     )
  546. )
  547. (
  548.     :type                   :popup-window
  549.     :name                   Wprops
  550.     :owner                  Wmain
  551.     :width                  369
  552.     :height                 368
  553.     :background-color       ""
  554.     :foreground-color       ""
  555.     :label                  "Reve Properties"
  556.     :label-type             :string
  557.     :initial-state          :invisible
  558.     :show-footer            nil
  559.     :resizable              nil
  560.     :pinned                 t
  561.     :done-handler           nil
  562.     :event-handler          nil
  563.     :events                 ()
  564.     :user-data              ()
  565.     :actions                ()
  566. )
  567. (
  568.     :type                   :control-area
  569.     :name                   controls4
  570.     :owner                  Wprops
  571.     :help                   ""
  572.     :x                      0
  573.     :y                      0
  574.     :width                  369
  575.     :height                 368
  576.     :background-color       ""
  577.     :foreground-color       ""
  578.     :initial-state          :visible
  579.     :show-border            nil
  580.     :menu                   nil
  581.     :event-handler          nil
  582.     :events                 ()
  583.     :user-data              ()
  584.     :actions                ()
  585. )
  586. (
  587.     :type                   :setting
  588.     :name                   Splays
  589.     :owner                  controls4
  590.     :help                   ""
  591.     :x                      8
  592.     :y                      16
  593.     :width                  322
  594.     :height                 23
  595.     :value-x                128
  596.     :value-y                16
  597.     :rows                   1
  598.     :columns                0
  599.     :layout-type            :horizontal
  600.     :foreground-color       ""
  601.     :setting-type           :exclusive
  602.     :selection-required     t
  603.     :label                  "Computer plays:"
  604.     :label-type             :string
  605.     :notify-handler         nil
  606.     :event-handler          nil
  607.     :events                 ()
  608.     :choices                ("White" "Black" "Neither" "Both" )
  609.     :choice-label-types     (:string :string :string :string )
  610.     :choice-colors          ("" "" "" "" )
  611.     :initial-selections     (t nil nil nil )
  612.     :initial-state          :active
  613.     :user-data              ()
  614.     :actions                ()
  615. )
  616. (
  617.     :type                   :setting
  618.     :name                   Sdifficulty
  619.     :owner                  controls4
  620.     :help                   ""
  621.     :x                      48
  622.     :y                      48
  623.     :width                  216
  624.     :height                 23
  625.     :value-x                125
  626.     :value-y                48
  627.     :rows                   1
  628.     :columns                0
  629.     :layout-type            :horizontal
  630.     :foreground-color       ""
  631.     :setting-type           :stack
  632.     :selection-required     t
  633.     :label                  "Difficulty:"
  634.     :label-type             :string
  635.     :notify-handler         nil
  636.     :event-handler          nil
  637.     :events                 ()
  638.     :choices                ("Instant" "1 Minute" "3 Minutes" "5 Minutes" "10 Minutes" "15 Minutes" "20 Minutes" "Tournament (30)" "60 Minutes" "Depth..." )
  639.     :choice-label-types     (:string :string :string :string :string :string :string :string :string :string )
  640.     :choice-colors          ("" "" "" "" "" "" "" "" "" "" )
  641.     :choice-defaults        (nil nil nil nil nil nil nil nil nil nil )
  642.     :initial-selections     (nil nil nil nil nil nil nil nil nil nil )
  643.     :initial-state          :active
  644.     :user-data              ()
  645.     :actions                (
  646.         (
  647.         :from                   (Wprops Sdifficulty "Depth...")
  648.         :when                   (Notify )
  649.         :to                     (Wprops Sdifficulty "Depth...")
  650.         :function_type          CallFunction
  651.         :arg_type               ()
  652.         :action                 (set_depth)
  653.         )
  654.     )
  655. )
  656. (
  657.     :type                   :setting
  658.     :name                   Soptions
  659.     :owner                  controls4
  660.     :help                   ""
  661.     :x                      58
  662.     :y                      80
  663.     :width                  298
  664.     :height                 226
  665.     :value-x                124
  666.     :value-y                80
  667.     :rows                   8
  668.     :columns                0
  669.     :layout-type            :horizontal
  670.     :foreground-color       ""
  671.     :setting-type           :check
  672.     :selection-required     t
  673.     :label                  "Options:"
  674.     :label-type             :string
  675.     :notify-handler         nil
  676.     :event-handler          nil
  677.     :events                 ()
  678.     :choices                ("Animate Move" "Show Current Best Move" "Show Last Move" "Show Evaluation Info." "Number Last Move" "Don't Show Flip" "Invalid Move Shows Legal Moves" "Use Clocks to Time Moves" )
  679.     :choice-label-types     (:string :string :string :string :string :string :string :string )
  680.     :choice-colors          ("" "" "" "" "" "" "" "" )
  681.     :initial-selections     (nil nil nil nil nil nil nil nil )
  682.     :initial-state          :active
  683.     :user-data              ()
  684.     :actions                ()
  685. )
  686. (
  687.     :type                   :button
  688.     :name                   Bpapply
  689.     :owner                  controls4
  690.     :help                   ""
  691.     :x                      112
  692.     :y                      336
  693.     :width                  53
  694.     :height                 19
  695.     :constant-width         nil
  696.     :button-type            :normal
  697.     :foreground-color       ""
  698.     :label                  "Apply"
  699.     :label-type             :string
  700.     :initial-state          :active
  701.     :menu                   nil
  702.     :notify-handler         set_props
  703.     :event-handler          nil
  704.     :events                 ()
  705.     :user-data              ()
  706.     :actions                (
  707.         (
  708.         :from                   (Wprops Bpapply)
  709.         :when                   (Notify )
  710.         :to                     (Wprops Bpapply)
  711.         :function_type          CallFunction
  712.         :arg_type               ()
  713.         :action                 (set_props)
  714.         )
  715.     )
  716. )
  717. (
  718.     :type                   :button
  719.     :name                   Bpreset
  720.     :owner                  controls4
  721.     :help                   ""
  722.     :x                      192
  723.     :y                      336
  724.     :width                  51
  725.     :height                 19
  726.     :constant-width         nil
  727.     :button-type            :normal
  728.     :foreground-color       ""
  729.     :label                  "Reset"
  730.     :label-type             :string
  731.     :initial-state          :active
  732.     :menu                   nil
  733.     :notify-handler         reset_props
  734.     :event-handler          nil
  735.     :events                 ()
  736.     :user-data              ()
  737.     :actions                (
  738.         (
  739.         :from                   (Wprops Bpreset)
  740.         :when                   (Notify )
  741.         :to                     (Wprops Bpreset)
  742.         :function_type          CallFunction
  743.         :arg_type               ()
  744.         :action                 (reset_props)
  745.         )
  746.     )
  747. )
  748. (
  749.     :type                   :popup-window
  750.     :name                   Whelp
  751.     :owner                  Wmain
  752.     :width                  503
  753.     :height                 703
  754.     :background-color       ""
  755.     :foreground-color       ""
  756.     :label                  "Reve Help"
  757.     :label-type             :string
  758.     :initial-state          :invisible
  759.     :show-footer            nil
  760.     :resizable              nil
  761.     :pinned                 t
  762.     :done-handler           nil
  763.     :event-handler          nil
  764.     :events                 ()
  765.     :user-data              ()
  766.     :actions                ()
  767. )
  768. (
  769.     :type                   :text-pane
  770.     :name                   textpane1
  771.     :owner                  Whelp
  772.     :help                   ""
  773.     :x                      0
  774.     :y                      0
  775.     :width                  503
  776.     :height                 703
  777.     :background-color       ""
  778.     :foreground-color       ""
  779.     :initial-state          :visible
  780.     :show-border            t
  781.     :read-only              nil
  782.     :event-handler          nil
  783.     :events                 ()
  784.     :user-data              ()
  785.     :actions                ()
  786. )
  787. (
  788.     :type                   :popup-window
  789.     :name                   Wload
  790.     :owner                  Wmain
  791.     :width                  335
  792.     :height                 73
  793.     :background-color       ""
  794.     :foreground-color       ""
  795.     :label                  "Load Game"
  796.     :label-type             :string
  797.     :initial-state          :invisible
  798.     :show-footer            nil
  799.     :resizable              nil
  800.     :pinned                 t
  801.     :done-handler           nil
  802.     :event-handler          nil
  803.     :events                 ()
  804.     :user-data              ()
  805.     :actions                ()
  806. )
  807. (
  808.     :type                   :control-area
  809.     :name                   controls2
  810.     :owner                  Wload
  811.     :help                   ""
  812.     :x                      0
  813.     :y                      0
  814.     :width                  335
  815.     :height                 73
  816.     :background-color       ""
  817.     :foreground-color       ""
  818.     :initial-state          :visible
  819.     :show-border            nil
  820.     :menu                   nil
  821.     :event-handler          nil
  822.     :events                 ()
  823.     :user-data              ()
  824.     :actions                ()
  825. )
  826. (
  827.     :type                   :text-field
  828.     :name                   Tload
  829.     :owner                  controls2
  830.     :help                   ""
  831.     :x                      8
  832.     :y                      8
  833.     :width                  312
  834.     :height                 15
  835.     :value-x                80
  836.     :value-y                8
  837.     :value-length           30
  838.     :stored-length          255
  839.     :rows                   3
  840.     :foreground-color       ""
  841.     :text-type              :alphanumeric
  842.     :label                  "Load File:"
  843.     :label-type             :string
  844.     :layout-type            :horizontal
  845.     :value-underlined       t
  846.     :initial-value          ""
  847.     :initial-state          :active
  848.     :read-only              nil
  849.     :notify-handler         nil
  850.     :event-handler          nil
  851.     :events                 ()
  852.     :user-data              ()
  853.     :actions                ()
  854. )
  855. (
  856.     :type                   :button
  857.     :name                   Blapply
  858.     :owner                  controls2
  859.     :help                   ""
  860.     :x                      136
  861.     :y                      40
  862.     :width                  53
  863.     :height                 19
  864.     :constant-width         nil
  865.     :button-type            :normal
  866.     :foreground-color       ""
  867.     :label                  "Apply"
  868.     :label-type             :string
  869.     :initial-state          :active
  870.     :menu                   nil
  871.     :notify-handler         xv_start_load
  872.     :event-handler          nil
  873.     :events                 ()
  874.     :user-data              ()
  875.     :actions                (
  876.         (
  877.         :from                   (Wload Blapply)
  878.         :when                   (Notify )
  879.         :to                     (Wload Blapply)
  880.         :function_type          CallFunction
  881.         :arg_type               ()
  882.         :action                 (xv_start_load)
  883.         )
  884.     )
  885. )
  886. (
  887.     :type                   :popup-window
  888.     :name                   Wsave
  889.     :owner                  Wmain
  890.     :width                  329
  891.     :height                 73
  892.     :background-color       ""
  893.     :foreground-color       ""
  894.     :label                  "Save Game"
  895.     :label-type             :string
  896.     :initial-state          :invisible
  897.     :show-footer            nil
  898.     :resizable              nil
  899.     :pinned                 t
  900.     :done-handler           nil
  901.     :event-handler          nil
  902.     :events                 ()
  903.     :user-data              ()
  904.     :actions                ()
  905. )
  906. (
  907.     :type                   :control-area
  908.     :name                   controls5
  909.     :owner                  Wsave
  910.     :help                   ""
  911.     :x                      0
  912.     :y                      0
  913.     :width                  329
  914.     :height                 73
  915.     :background-color       ""
  916.     :foreground-color       ""
  917.     :initial-state          :visible
  918.     :show-border            nil
  919.     :menu                   nil
  920.     :event-handler          nil
  921.     :events                 ()
  922.     :user-data              ()
  923.     :actions                ()
  924. )
  925. (
  926.     :type                   :text-field
  927.     :name                   Tsave
  928.     :owner                  controls5
  929.     :help                   ""
  930.     :x                      8
  931.     :y                      8
  932.     :width                  312
  933.     :height                 15
  934.     :value-x                80
  935.     :value-y                8
  936.     :value-length           30
  937.     :stored-length          255
  938.     :rows                   3
  939.     :foreground-color       ""
  940.     :text-type              :alphanumeric
  941.     :label                  "Save File:"
  942.     :label-type             :string
  943.     :layout-type            :horizontal
  944.     :value-underlined       t
  945.     :initial-value          ""
  946.     :initial-state          :active
  947.     :read-only              nil
  948.     :notify-handler         nil
  949.     :event-handler          nil
  950.     :events                 ()
  951.     :user-data              ()
  952.     :actions                ()
  953. )
  954. (
  955.     :type                   :button
  956.     :name                   Bsapply
  957.     :owner                  controls5
  958.     :help                   ""
  959.     :x                      128
  960.     :y                      40
  961.     :width                  53
  962.     :height                 19
  963.     :constant-width         nil
  964.     :button-type            :normal
  965.     :foreground-color       ""
  966.     :label                  "Apply"
  967.     :label-type             :string
  968.     :initial-state          :active
  969.     :menu                   nil
  970.     :notify-handler         xv_start_save
  971.     :event-handler          nil
  972.     :events                 ()
  973.     :user-data              ()
  974.     :actions                (
  975.         (
  976.         :from                   (Wsave Bsapply)
  977.         :when                   (Notify )
  978.         :to                     (Wsave Bsapply)
  979.         :function_type          CallFunction
  980.         :arg_type               ()
  981.         :action                 (xv_start_save)
  982.         )
  983.     )
  984. )
  985. (
  986.     :type                   :base-window
  987.     :name                   Wboard
  988.     :owner                  nil
  989.     :width                  465
  990.     :height                 463
  991.     :background-color       ""
  992.     :foreground-color       ""
  993.     :label                  "Reve Game Board"
  994.     :label-type             :string
  995.     :initial-state          :open
  996.     :show-footer            nil
  997.     :resizable              t
  998.     :icon-file              "images/reve.xbm"
  999.     :icon-mask-file         ""
  1000.     :event-handler          nil
  1001.     :events                 ()
  1002.     :user-data              ()
  1003.     :actions                ()
  1004. )
  1005. (
  1006.     :type                   :canvas-pane
  1007.     :name                   Bcanvas
  1008.     :owner                  Wboard
  1009.     :help                   ""
  1010.     :x                      0
  1011.     :y                      0
  1012.     :width                  465
  1013.     :height                 463
  1014.     :background-color       ""
  1015.     :foreground-color       ""
  1016.     :initial-state          :visible
  1017.     :draggable              nil
  1018.     :droppable              nil
  1019.     :default-drop-site      nil
  1020.     :menu                   nil
  1021.     :horizontal-scrollbar   nil
  1022.     :scrollable-width       465
  1023.     :vertical-scrollbar     nil
  1024.     :scrollable-height      463
  1025.     :repaint-proc           nil
  1026.     :event-handler          canvas_proc
  1027.     :events                 ()
  1028.     :drawing-model          :xwindows
  1029.     :user-data              ()
  1030.     :actions                (
  1031.         (
  1032.         :from                   (Wboard Bcanvas)
  1033.         :when                   (AnyEvent )
  1034.         :to                     (Wboard Bcanvas)
  1035.         :function_type          CallFunction
  1036.         :arg_type               ()
  1037.         :action                 (canvas_proc)
  1038.         )
  1039.         (
  1040.         :from                   (Wboard Bcanvas)
  1041.         :when                   (Resize )
  1042.         :to                     (Wboard Bcanvas)
  1043.         :function_type          CallFunction
  1044.         :arg_type               ()
  1045.         :action                 (canvas_resize_proc)
  1046.         )
  1047.     )
  1048. )
  1049. )
  1050.